'KAN ANVÄNDAS SÅ HÄR:
ConvertLinks(radbryt(HTMLTecken( Variabel_med_text )))





'FUNKTIONERNA:

Function HTMLTecken(txtString)	
	txtString = Server.HTMLEncode(Trim(txtString))	
	txtString = SMILETecken(txtString)	
	HTMLTecken = txtString
End Function


Function Radbryt(rfix)
	rfix = "<P>" & Replace(rfix, vbCrLf, "<br>") & "</P>"
	Radbryt = rfix
End Function


Function SMILETecken(txtString)
	txtString = Replace(txtString, ":-)", "<img src=""/forum/images/sm_smile.gif"" width=15 height=15>")
	txtString = Replace(txtString, ";-)", "<img src=""/forum/images/sm_wink.gif"" width=15 height=15>")
	txtString = Replace(txtString, "B-)", "<img src=""/forum/images/sm_smilesunglass.gif"" width=15 height=15>")	
	txtString = Replace(txtString, ":-D", "<img src=""/forum/images/sm_biggrin.gif"" width=15 height=15>")	
	txtString = Replace(txtString, ":b)", "<img src=""/forum/images/sm_beergrin.gif"" width=26 height=17>")	
	txtString = Replace(txtString, "B~&gt;", "<img src=""/forum/images/sm_party1.gif"" width=32 height=26>")
	txtString = Replace(txtString, "X/&gt;", "<img src=""/forum/images/sm_party2.gif"" width=24 height=18>")	
	txtString = Replace(txtString, ":&gt;)", "<img src=""/forum/images/sm_great_thup.gif"" width=29 height=15>")
	txtString = Replace(txtString, ":P", "<img src=""/forum/images/sm_wow.gif"" width=17 height=17>")
	txtString = Replace(txtString, "&gt;:D", "<img src=""/forum/images/sm_devilgrin.gif"" width=20 height=19>")
	txtString = Replace(txtString, ":-p", "<img src=""/forum/images/sm_happy.gif"" width=15 height=15>")
	txtString = Replace(txtString, "(c:", "<img src=""/forum/images/sm_smilerotate.gif"" width=15 height=15>")
	txtString = Replace(txtString, ":-!", "<img src=""/forum/images/sm_idea.gif"" width=20 height=15>")
	txtString = Replace(txtString, ":-?", "<img src=""/forum/images/sm_question.gif"" width=20 height=15>")
	txtString = Replace(txtString, ":-/", "<img src=""/forum/images/sm_hmm.gif"" width=15 height=15>")
	txtString = Replace(txtString, ":-o", "<img src=""/forum/images/sm_blush.gif"" width=15 height=15>")
	txtString = Replace(txtString, ":-O", "<img src=""/forum/images/sm_cry.gif"" width=16 height=16>")
	txtString = Replace(txtString, ":&gt;B", "<img src=""/forum/images/sm_moon.gif"" width=25 height=29 alt=""Eat my shorts!"">")
	txtString = Replace(txtString, ":-(", "<img src=""/forum/images/sm_frown1.gif"" width=15 height=15>")	
	txtString = Replace(txtString, ":(", "<img src=""/forum/images/sm_frown2.gif"" width=15 height=15>")	
	txtString = Replace(txtString, "X-b", "<img src=""/forum/images/sm_urk.gif"" width=16 height=16>")
	txtString = Replace(txtString, "8-C", "<img src=""/forum/images/sm_help.gif"" width=15 height=15>")
			
	SMILETecken = txtString

End Function


'----------------------------------------------------
' * ConvertLinks *
' Fixa så att länkar blir länkade i HTML-koden.
' Det mesta av koden kommer från www.ojmnet.com
' Kan göras med färre rader om man använder RegExp,
' men lazy bastards ändrar inte old stuff som funkar :-)
'----------------------------------------------------

Function ConvertLinks(svalue)
    svalue = ConvertLinksHREF(svalue, "http://")
    svalue = ConvertLinksHREF(svalue, "ftp://")
    svalue = ConvertLinksHREF(svalue, "news://")
    svalue = ConvertLinksHREF(svalue, "mailto:")

    ConvertLinks = svalue
End Function

Function ConvertLinksHREF(svalue, sHREF)

    Dim iPos1, iPos2, sTemp, sTemp1, sTemp2

    iPos2 = 1
    iPos1 = InStr(1, svalue, sHREF, 1)
    Do While iPos1 > 0
        iPos2 = FindLinkEnd(svalue, iPos1 + Len(sHREF))
        If iPos2 > 0 Then
            sTemp1 = Mid(svalue, iPos1, iPos2 - iPos1)            
            sTemp2 = "<A HREF=" & Chr(34) & sTemp1 & Chr(34) & " target=" & Chr(34) & "_blank" & Chr(34) & ">" & sTemp1 & "</A>"
            svalue = Left(svalue, iPos1 - 1) & sTemp2 & Mid(svalue, iPos2)
            iPos2 = iPos1 + Len(sTemp2) + 1
        Else
            iPos2 = iPos1 + Len(sHREF)
        End If
        iPos1 = InStr(iPos2, svalue, sHREF, 1)
    Loop

    ConvertLinksHREF = svalue
End Function

Function FindLinkEnd(svalue, iPos1)
    Dim iPos2, i, iLen, iTempPos
    Dim sValidChars
    
    sValidChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-.,@/+?_=~#&;%:"
    iLen = iPos1 + Len(Mid(svalue, iPos1)) - 1
    iPos2 = -1
    For i = iPos1 To iLen
        iTempPos = InStr(1, sValidChars, Mid(svalue, i, 1), 1)
        If iTempPos = 0 Then
            If i < iPos1 + 4 Then
                iPos2 = -1
            Else
                iPos2 = i
            End If
            Exit For
        End If
    Next
    If iPos2 = 0 Then
        iPos2 = Len(svalue) + 1
    End If
    
    FindLinkEnd = iPos2

End Function